m <- cpp_map(4:6, seq.int(0, 1, by = 0.5))
m
# [4,0] [5,0.5] [6,1]
m[6L]
# [1] 1
m
# [4,0] [5,0.5] [6,1]
m[8L]
# [1] 0
m
# [4,0] [5,0.5] [6,1] [8,0]
v <- cpp_vector(4:6)
v
# 4 5 6
v[1L]
# [1] 4
v
# 4 5 6
Run the code above in your browser using DataLab